home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagd_f.zip / DATETIME.SWG / 0006_DATE5.PAS.pas < prev    next >
Pascal/Delphi Source File  |  1993-05-28  |  326b  |  11 lines
  1. Procedure TheDate(Var Date:String;Var doW:Integer);
  2.  Var
  3.   D,M,Y : Integer;
  4.  begin
  5.   GetDate(Y,M,D,doW);
  6.   Date:=chr((M div 10)+48)+chr((M mod 10)+48)+'-'+chr((D div 10)+48+
  7.         chr((D mod 10)+48)+'-'+chr(((Y mod 100) div 10)+48)+
  8.         chr(((Y mod 100) mod 10)+48);
  9.   if Date[1]='0' then Date[1]:=' ';
  10.  end;
  11.